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ABSTRACT 



NOVA 800 Instruction Timer is a maintenance program designed to test 
the CPU clock circuits by timing the instruction set. The 100 MS 
teletype clock is used for calibration and is assumed accurate. 
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5.1 



NOVA 800 INSTRUCTION TIMER 

ABSTRACT 

NOVA 800 INSTRUCTION TIMER IS A MAIN- 
TENANCE PROGRAM DESIGNED TO TEST THE CPU 
CLOCK CIRCUTS BY TIMING THE INSTRUCTION 
SET. THE 100 MS TELETYPE CLOCK IS USED 
FOR CALIBRATION AND IS ASSUMED ACCURATE. 

MACHINE REQUIREMENTS 
NOVA-800 PROCESSOR 
A TYPE 33 OR 35 TELETYPE 



SNITCH SETTINGS 

STARTING ADDRESS«2 
STARTING AODRESS'3 



PRINT TIMES 

PRINT TIMES IF IN ERROR 



OPERATING PROCEEDURE 

LOAD THE PROGRAM VIA THE BINARY LOADER 

SET SWITCHES TO 3 

PRESS START 

THE PROGRAM WILL PRINT RUB-OUT CHARACTERS 

AND ANY INSTRUCTION TIME IN ERROR, 



5.2 



PROGRAM OUTPUT 

WHEN THE PROGRAM I 
THREE, ONLY THOSE 
MALFUNCTIONS WILL 
PROGRAM IS STARTEU 
INSTRUCTION TESTED 
TIME WILL BE PRINT 
FOR EXAMPLEl 



S STARTEO AT LOCATION 
INSTRUCTIONS WITH TIMING 
BE PRINTED. WHEN THE 
AT LOCATION TWO EACH 
ALONG WITH ITS EXECUTION 
ED. 



INSTRUCTION 


EXECUTION TIMES 


MOV 0.0 


603 


ADD 0,0 


803 


AND 0,0 


803 


COM 0,0, SKP 


1003 


LDA 0,0 


1603 


STA 0,0 


1603 


ISZ 


1802 


DSZ 


1802 


JMP ,♦! 


804 


JSR ,♦! 


804 


LDA 0,0,2 


1603 


LDA 0,60 


2402 


LOA 0,621 


2602 


LOA 0,631 


2601 


LDA 0,6(60] 


3201 


DIA 0,0 


2202 


DOA 0,0 


2202 


NIOS 


2801 


INTA 


2202 


SKPBN 


1403 


SKPBZ 


1599 


DIVIDE 


6794 


MULTIPLY 


8794 



A 0002 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

1« 
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28 
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31 
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33 
34 



.MAIN 



'6, PROGRAM DESCRIPTION 

ifi.l THE FOLLOWING PROCEDURE 18 USED TO CALCULATE 
THE INSTRUCTION TIMES, THE TELETYPE IS COM- 
MANED TO PRINT A CHARACTER. A "INC" 
INSTRUCTION THEN RECORDS THE NUMBER OF TIMES 
A SMALL LOOP IS ITERATED BEFORE THE TELETYPE 
BUSY FLAG IS ZERO, THIS COUNT REPRESENTS 100 
MILLISECONDS, AND IS USED FOR CALIBRATION. 
A 1G900 WORD BUFFER IS FILLED WITH THE INST- 
RUCTION TO BE TIMED, A CHAR. IS AGAIN SCNT 
TO THE TELETYPE AND PROGRAM CONTROL IS TRANS. 
FERED TO THE BUFFER, THE BUFFER IS EXE. 12 
TIMES, WHEN THE INSTRUCTION IN QUESTION HAS 
BEEN EXECUTED 10000 TIMES (1000*10) THE PRO" 
GRAM THEN TIMES THE REMAINDER OF THE TTY 
BUSY FLAG, THIS VALUE IS SUBTRACTED 
FROM THE 100MS CALIB, TIME. THE DIFPIRENCE 
REPRESENTS THE TIME FOR 10000 INSTRUCTIONS, 
THIS TIME IS CONVERTED TO NANO SECONOS 
FOR PRINTING. 
6,2 THE NUMBER *1 IS MULTIPLYED BY *2. IF THE 

RESULT IS +2 THE MUL/DIV OPTION IS ASSUMED TO 
EXIST. IF THE RESULT IS NOT +2 THE MUL/DIV 
TIMES ARE NOT TESTED. TIMES REPRESENT THE 
NUMBER (123252) MULTIPLIED AND DIVIDED BY 
THE NUMBER ♦!, 

7, LIMITATIONS/MISC 

THIS PROGRAM WILL NOT FUNCTION PROPERLY WITH 

A TYPE 37 TELETYPE. 

PROGRAM MEASUREMENTS FALL WITHIN ♦ OR • 

6NS, A MEASUREMENT OUTSIDE THE RANGE 

♦ OR • 20NS IS CONSIDERED IN ERROR. 



a ana* 

WWWW 

01 

02 

03 00002 

04 £000.} 
05 

06 
07 

08 '40858 

09 00051 

10 00052 

11 00053 

12 00054 

13 00055 

14 80855 

15 80057 

16 00060 

17 00861 

18 80062 

19 00063 

20 00064 

21 00065 

22 00066 

23 08867 

24 00070 

25 80071 

26 80872 

27 80073 

28 88874 

29 00075 

30 00876 

31 ddd77 

32 00100 
33 

34 
35 

36 00408 

37 00401 

38 80402 

39 00403 

40 80404 

41 80405 

42 80406 

43 00407 

44 00418 

45 00411 

46 00412 

47 00413 

48 00414 

49 80415 

50 00416 

51 80417 
52 

53 



, MATW 
000002 

002050 
002061 



,LOC 2 



000050 ,LOC 50 



000400 
000401 
000000 
000000 
003210 
003065 
800578 
001110 
803060 
023420 
000000 
008012 
003107 
000000 
177760 
100008 
800060 
000024 
100001 
063500 
873181 
073301 
000000 
000000 
125252 



811 
621 

PSWITI 
CALIBRI 

XCRLFI 

XMESSl 

CITABt 

IBUFFI 

FBUFFl 

C23420I 

TIMIXI 

C12I 

IPOECI 

MSAVI 

M20I 

ZPQINTI 

C60I 

C241 

CSKPH 

CSKP2I 

CDIVI 

CflUU 

MDOPTl 

TEN0I 

C5252I 



JMP #61 
JMP #62 



BEGIN 

BEGINM 





CRLF 

MESS 

I7ABL-1 

BBUF 

FBUF 

23420 



12 

PDEC 



• 20 

#0 

60 

24 

COM 8,0, SKP 

SKPBZ 

DOCS 2,1 

OOCP 2,1 





125252 



800400 ,LOC 400 



102401 
102000 
040052 
102400 
126520 
131120 
073301 
146400 
844876 
004524 
152000 
071111 
004521 
071111 
004517 
048053 



BEGINS 



SUB 0,0, SKP 
AOC 0,0 

STA 0,PSWIT 
SUB 0,0 
8UBZL 1,1 
MOVZL 1,2 
OOCP 2,1 
SUB 2,1 
STA l,MOOPT 
JSR TIMER 
ADC 2,2 
DOAS 2,TT0 
JSR TIMER 
OOAS 2,TT0 
JSR TIMER 
STA 0,CAUIBR 



1PRINT 
IDON'T PRINT 



ILOOK FOR M/O OPTION 

1MULTIPLY 

ICC1)"0 IF PRESENT. 



/CALIBRATE ON 
1100 MS CLOCK, 



a 0004 , 

01 

02 00420 

03 00421 

04 00422 

05 00423 

06 00424 

07 0042d 
06 00426 
09 

10 00427 
U 00430 

12 00431 

13 00432 

14 00433 

15 00434 

16 00436 

17 00436 

18 00437 

19 00440 

20 100441 

21 00442 

22 00443 

23 00444 

24 00445 

25 00446 

26 00447 

27 00450 
26 00451 

29 00452 

30 00453 

31 00454 

32 00455 

33 00456 
34 

35 00457 

36 00460 

37 00461 
36 00462 

39 00463 

40 00464 

41 00465 

42 00466 

43 00467 

44 00470 

45 00471 

46 00472 

47 00473 
46 00474 

49 00475 

50 00476 

51 00477 

52 00500 
53 

54 00501 

55 00502 

56 00503 



MAIN 

020052 
101004 
000405 
006054 
006054 
006055 
000677 

020056 
040020 
034076 
030075 
024074 
022020 
106404 
112405 
175005 
101005 
000757 
024063 
030072 
034073 
142414 
162415 
024071 
044077 
030057 
034060 
041000 
151400 
156404 
000774 

054000 
054021 
152220 
151220 
050031 
004451 
071111 
004447 
102400 
024100 
034057 
030077 
151200 
151203 
000404 
152520 
071111 
001410 

152520 
071111 

001550 



BEG21 



BEGlt 
BEGl 



INITJ 



IDA 0,PSWIT 
MOV 0,0, SZR 
JMP BfcGl 
JSR 4ICHLF 
JSR HCRLF 
JSR #IMfcS3 
HEADER 

IDA 0,CITAB 
3TA 0,20 
IDA 3,MD0PT 
LOA 2,CMUL 
LOA 1,CDIV 
IDA 0,»20 
SUB 0,1, SZR 
SUB 0,2,SNR 
MOV 3,3,SNR 
MOV 0,0, SNR 
JMP BfcG2 
LOA 1,C12 
IDA 2,CSKP1 
IDA 3,CSKP2 
SUB* 2,0, SZR 
SUB* 3,0, SNR 
LDA 1,C24 
STA 1,TEN0 
LDA 2,I6UFP 
LDA 3,FBUFF 
STA 0,0,2 
INC 2,2 
3UB 2, 3, SZR 
JMP ,-4 



STA 3 
STA 3 
ADCZR 
MOVZR 
STA 2 
JSR T 
DOAS 



JSR 

SUB 

LDA 

LDA 

LDA 

MOVR 

MOVR 

JMP , 

SUBZL 

DOAS 

JMP 1 



,0 

,21 
2,2 

2,2 
,31 

IMER 

2,TT0 

IMfeR 

,0 

,C5252 
,IBUFF 
,TtN0 
2,2 

2,2, SNC 
♦ 4 

2,2 
2,TT0 
0,3 



IDON'T PRINT 
JHEADER 



UNITIALIZE INST 
HO BE TIMED, 



JA M/D INSTRUCTION 
»END OF TABLE 



f IF 3KP TYPE INST EXE 
ITHE BUFFER 20 TIMES 



JFILL A IK BUFFER 
MITH INSTRUCTIONS, 



UNIT FOR # TEST, 



IWAIT IF TTO BUSY, 



SUBZL 2,2 
DOAS 2, TTO 
JMP 150,3 



JNO-SKIP INST 
ISTART THE TTO 
IEXIT TO BUFFER 

JSKIP INSTRUCTION 
ISTART TTO 
IEXIT TO BUFFER 



<. aaam 



01 

02 

03 

04 

05 

06 

07 

00 

09 

10 

11 

12 

13 

14 

13 

16 

17 

16 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 



M1TM 



00504 
09505 
00506 
00507 
00510 
00511 
00512 

00513 
00514 
00515 
00516 
00517 
00520 
00521 
00522 
00523 
00524 

00525 
00526 
00527 
00530 
00331 
00532 
00533 
00534 

00535 
00536 
00537 
00540 
00541 



004431 
024033 
106400 
030061 
004432 
030053 
004442 

044062 
034020 
031430 
132423 
150400 
020071 
112440 
030052 
151006 
000705 

035457 
094403 
006054 
006055 
000000 
024062 
006064 
000675 

102000 
101400 
063511 

00(0776 
001400 



TINSRI 



TLOOKI 



TIMERI 



JSR 
LOA 
SUB 
LOA 
J8R 
LOA 
JSR 



TIMER 
ItCALIBR 

0,1 

2,C23420 

MULT 

2,CALIBR 

,01V 



JTIME TTO 
K(i)«10K INST TIME 



ICC1)»TIME PER INST 
UN NANO SECONDS, 



STA 1,TIMEX fCCD'ACTUAL TIME 

LOA 3,20 |CC2)«C0RRECT TIME 

LOA 2,ITABE-ITABL,3 



SUBZ 1,2, SNC 
NEG 2,2 
LOA 0,C24 
SUBO 0,2 
LOA 2,P8WIT 
MOV 2,2,SfeZ 
JMP BEG 



LOA 3,IMEST»ITABL,3 
STA 3,,*3 

JSR 9ICRLF 

J8R #IMfcSS 



LOA 1,TIMEX 

JSR #IPUEC 

JMP BEG 



ITHEORY-ACTUAL 
|CC23b*OIFFIR£NCE 
KC0)"20 NANO SECONDS 



MESSAGE ABOUT 
^INSTRUCTION TIMED. 

IPRINT THE TIME, 



ADC 0,0 
INC 0,0 
SKPBZ TTO 
JMP ,-2 

JMP 0,3 



fRECORD THE TIME 
IFOR TTO TO FINISH, 



a 0006 . 
SI 

02 00542 

03 00543 

04 00544 

05 00545 

06 00546 

07 00547 
06 00650 

09 00551 

10 00652 

11 00553 
12 

13 00554 

14 00555 

15 00556 

16 00557 

17 00560 

18 £0661 

19 00562 

20 00563 

21 00564 

22 00565 

23 00566 

24 00567 

25 00570 
26 

27 00571 

28 00572 

29 00573 

30 00574 

31 00575 

32 00576 

33 00677 

34 00600 

35 00601 

36 00602 

37 00603 

38 00604 

39 00605 

40 00606 

41 00607 

42 00610 

43 00611 

44 00612 

45 00613 

46 00614 

47 00615 

48 00616 

49 00617 

50 00620 



MAIN 

102460 MULTI 

054065 

034066 

125203 MLOQPl 

101201 

143220 

176404 

000774 

125260 

002065 

054065 ,OXVI 

034066 

125120 

101100 DLOOPl 

142412 

142400 

125100 

175404 

000773 

151220 

142432 

125400 

002065 

101000 ITABL1 

103000 

103400 

100001 

020000 

040000 

010000 
014000 
000401 
004401 
021000 
022000 

022021 
022031 
022067 
060400 
061000 
060100 
061477 
063400 
063500 
073101 
073301 
000000 



SUBC 0,0 
8TA 3,MSAV 
LOA 3,M20 
MOVR 1,1, 8NC 
MOVR 0,0, SKP 
ADDZR 2,0 
INC 3,3,SZR 
JMP MLOOP 
HOVCR 1,1 
JMP tMSAV 

8TA 3,MSAV 
IDA 3,M20 
MQVZL 1,1 
MOVL 0,0 
SUB» 2,0, SZC 
SUB 2,0 
MOVL 1,1 
INC 3,3,SZR 
JMP DLOQP 
MQVZR 2,2 
SUBZ* 2,0, SZC 
INC 1,1 
JMP #M3AV 

NOV 0,0 
ADO 0,0 
AND 0,0 
COM 0,0, SKP 
LOA 0,0 
STA 0,0 
I3Z 
OSZ 
JMP ,*1 
JSR ,♦! 
LOA 0,0,2 
LOA 0,#0 
LOA 0,#21 
LOA 0,#31 
LOA 0,#ZPOINT 
OIA 0,0 
OOA 0,0 
NI08 
INTA 
SKPBN 
SKPBZ 
OOCS 2,1 
OOCP 2,1 




JCC1)*C(2) 

fRESULT TO C(0),C(1) 



|C(0),C(1)/CC2) 
fCC0)«REMAINOER 
|CCl)"QUOIENT 



IROUNO UP 



IINST TO BE TIMED 



A 0007 .MAIN 

01 
02 
03 

04 00621 

05 00622 

06 00625 

07 00624 
06 00626 
00 00626 

10 00627 

11 00630 

12 00631 

13 00632 

14 00633 

15 00634 

16 00635 

17 00636 
16 00637 
19 00640 
26 00641 

21 00642 

22 00643 

23 00644 

24 00645 

25 00646 

26 00647 
27 
26 
29 

30 00650 000715 

31 00651 000722 

32 00652 000727 

33 00653 001061 

34 00654 000734 

35 00655 000741 

36 00656 000746 

37 00657 000752 

38 00660 000756 

39 00661 000763 

40 00662 001070 

41 00663 id9779 

42 00664 000776 

43 (00665 001004 

44 00666 001012 

45 00667 001021 

46 00670 001026 

47 00671 001076 
46 U0672 001033 

49 00673 001040 

50 00674 001103 

51 00675 001045 

52 00676 001052 



000012 ,RDX 10 



ITABEl 



001440 
001440 
001440 
001750 
003100 
003100 
003410 
003410 
001440 
001440 
003100 
004540 
005050 
005050 
006200 
004230 
004230 
005360 
004230 
002570 
003100 
021140 
021140 



000010 ,HDX 6 



IMESTI 



600 

800 

600 

1000 

1600 

1600 

1800 

1800 

800 

800 

1600 

2400 

2600 

2600 

3200 

2200 

2200 

2800 

2200 

1400 

1600 

8800 

8600 



II 

12 

13 

13,1 

14 

15 

16 

17 

18 

19 

19,1 

110 

111 

112 

113 

114 

115 

115.1 

116 

117 

117.1 

116 

119 



K0RR6CT TIME8. 



A 0008 . 


MAIN 


01 






02 








00677 


047311 




00/00 


152123 




tf070l 


052722 




00702 


152303 




40/03 


1477U 




00704 


120116 




00705 


154305 




40706 


141705 




0070/ 


152125 




00710 


147711 




00/11 


120116 




00712 


144724 




00713 


142515 




00714 


000123 


03 






04 








00715 


147513 




00716 


120126 




0471/ 


126060 




00720 


004460 




00721 


000011 


05 








00722 


042101 




00723 


120104 




00724 


126060 




00726 


004460 




00726 


000011 


06 








40727 


047101 




00730 


120104 




00731 


126060 




00732 


004400 




40733 


000011 


07 








00734 


042314 




00735 


120101 




00736 


126060 




00737 


004460 




40740 


000011 


0a 








00741 


152123 




00742 


120101 




40743 


126060 




00744 


004460 




40745 


000011 


09 








00746 


051711 




00747 


120132 




00750 


004460 




00751 


000011 


u 








00/52 


051504 




00753 


120132 




00754 


004460 




00755 


400011 



HEADERI ,TXTE INSTRUCTION EXECUTION TIMESI 



11 



III 



,TXTE IMOV 0,0 



121 



,TXTE JADD 0,0 



131 



,TXTE JAND 0,0 



14! 



,TXTE 1LDA 0,0 



151 



,TXTE 1STA 0,0 



161 



171 



181 



,TXTE 1ISZ 



,TXTE IQ3Z 



,TXTE IJMP .♦! 



40756 046712 



01 



02 



03 



04 



05 



00 



07 



00 



09 



0008 
00757 

80760 
00761 
00762 

00769 
00764 

00765 
00766 
00767 

U77i 
00771 

00772 

00773 

00774 
00775 

00776 
00777 

01000 
01001 
01002 
01009 

01004 
01005 
01006 
01007 
01010 
01011 

01012 
01019 
01014 

,** i ,» a u. 

B)V19 

01016 

01017 
01020 

01021 
01022 
01029 
01024 
01025 

01026 
01027 

01090 
01031 
01032 

01033 
01034 
01035 
01036 
01037 



.MAIN 
120180 
025456 

004661 
000011 

051712 

120322 
025456 
004661 
000011 

042314 
120101 
126060 
030300 
120240 
000011 

042314 
120101 
126060 
131300 

004661 
000000 

042314 
120101 
126060 
091700 
004661 
000000 

042914 
120101 
126060 

r% A A M i*. #» 

090900 

004651 
000000 

144504 

120101 
126060 
004460 
000011 

147504 
120101 
126060 
004460 
000011 

0479U 

040724 
090240 
004411 
000000 



101 



.TXTE IJ8R .♦! 



1101 



.TXTE ILDA 0,#0 



mi 



.TXTE ILDA 0,#21 



Z12I 



• TXTE UDA 0,931 



Z13I 



.TXTE ILDA 0,#C#0) 



1141 



.TXTE IDXA |8 



1151 



•TXTE IDOA 0,0 



1161 



.TXTE JINTA 



01040 045523 



X17I 



•TXTE 13KPBN 



0010 . 

01042 
01043 
01044 



01 
02 
03 



04 



01045 
41046 
01047 
010510 
01051 

01052 
01053 

01054 
01055 
01056 
01057 
01060 



05 



06 



07 



08 



MAIN 

041120 

120116 

004460 

000011 



01061 
01062 
41063 
01064 
41065 
01066 
01067 

01070 
01071 
01072 
01073 
41074 
01075 

01076 
01077 
01100 
01101 
01102 

01103 
01104 

01105 
01106 

01107 



144504 
144526 
142504 
004411 
000000 

052515 
152314 
050311 
054714 

120240 
004640 
000000 

147703 

120115 
126060 
126060 
045523 
004520 
000000 

042314 
120101 
126060 
126060 

004662 
000000 

144516 
051717 

030240 
0044U 
000000 

045523 
041120 
120132 
120060 
000011 



09 
10 
11 
12 
13 
14 
15 
16 
17 
IS 



1181 



,TXTE IDIVIOE 



1191 



,TXTE IMULTIPLY 



01110 



13,11 .TXTE ICOM 0,0, SKP 



19.11 .TXTE ILDA 0,0,2 



115,11 .TXTE 1NI08 



117,11 ,TXTE ISKPBZ 1 







000000 BBUFI 
000012 ,RDX 10 
003060 ,LOC .+999 
000010 ,HOX 8 



03060 
03061 
03062 

WWW V 



014077 F8UPI 

002402 

002402 



an i 1 4 a 

WW * * • « 



20 03064 000504 



08Z TEN0 
JMP »,+2 
JMP #,*2 

8SUF 
TINSR 



Ban 



MAIN 



* 0012 

01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 

15 

16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
58 
51 
52 
53 
54 
55 
56 
57 
56 



MAIN 



03065 
^3066 
03067 

03070 
03071 

03072 
03073 
03074 
03075 
03076 

03077 
03100 
03101 

03102 
03103 

03104 
03105 
83106 
03107 
03U0 
03111 
03112 
03113 
03114 
03115 
03116 
03117 
03120 
03121 
03122 
03123 
03124 
03125 
03126 
03127 
03130 
03131 
03132 
03133 
03134 
03136 
03136 
03137 



ITTQ NON INTERRUPT PACKAGE 

f»MESS" PRINTS ASCII MESSAGES AS SPECIFIED BY ASSEMBLR 

fCHAR" PRINTS ASCII CHARACTOR, C(0)R,C(0)L MUST BE 

MILL RETURN *2 IF C C0) R»0, CORRECTS THE PARITY, 33 SIMULATE 

J"TYPE" PRINTS C(0)R. MUST HAVE PROPER PARITY, RETURN IS 

f TO CALL*1. REPLACE THIS ROUTINE WITH INTERRUPT TYPE IF DESIRED. 

»»CRLF" PRINTS A CARRIAGE RETURN 

f»PQCT" PRINTS Ctl) IN OCTAL FOLLOWED BY A TAB 

|«POEC" PRINTS CC1) IN DECIMAL, LEAOING ZEROS SUPPRESSED, 

^FOLLOWED BY A TAB, 



054545 MESSl STA 3,MESSR 

010544 ISZ MESSR 

031400 LDA 2,0,3 

024541 LDA 1,C377 

021000 LDA 0,0,2 

125U2 MOVL* 1,1, 8ZC 

123701 ANDS 1,0, SKP 

123401 AND 1,0, SKP 

151400 INC 2,2 

124000 COM 1,1 

004462 JSR CHAR 

000771 JMP MESS*4 

002531 JMP PMESSR 

020525 ZOCTI LDA 0,CH240 

101001 MOV 0,0, SKP 

020070 POCTI LDA 0,C60 

030433 LDA 2,OCTAB 

000403 JMP ,+3 

830441 POECI LDA 2,DECTB 

020517 LOA 0,CH240 

054447 STA 3,RADRET 

040445 STA 0,ZSUPP 

050401 STA 2,.*1 

000000 DECOCT! 

010777 ISZ ,»1 

034442 LDA 3,RADRET 

020503 LDA 0,CHTAB 

151005 MOV 2,2,SNR 

000440 JMP CHAR 

034435 LDA 3,ZSUPP 

102400 SUB 0,0 

146512 DECOTI SUBL# 2,1,SZC 

000405 JMP DECP 

146400 SUB 2,1 

034070 LDA 3,C60 

101400 INC 0,0 

000773 JMP DECQT 

151235 DECPI MQVZR* 2,2,SNR 

034070 LDA 3,C60 

054423 STA 3,ZSUPP 

163000 ADD 3,0 

004423 JSR CHAR 

000755 JMP DECOCT 



fPRINT A TEXT MESSAGE 

ICC2) POINTS TO MESSAGE 
fA 8 BIT MASK 
?C(2)iDATA WORD 



>CC0)"OATA CHARACTOR RIGHT 

IXNC TO NEXT WORD 

IFLIP MASK 

IPRINT 

IANOTHER 

ILAST 



IPRINT C(l) IN OCTAL 

JPRINT C(l) IN OECIMAL 
^SUPPRESS LEADING ZEROS 
I80TH ENTRYS PRINT NUMBER 
ITHEN TAB TO NEXT POSITION 

JA»LDA 2, TABLE" INSTRUCTION 

JSETUP "TAB" AT END 

JIF TABLE ENTRY"0 
IEXIT WITH TAB 
IZEROS SUPPRESS STUF 



JFORM THE DIGIT 



?C(0)"OIGIT 

IMAKE ASCII 

JPRINT 

JGET NEXT DIGIT 



S813 



01 

02 
09 

04 
05 
06 
07 
06 
09 
10 
11 
12 
13 
i4 

15 

16 

17 

16 

19 

20 

21 
22 

23 
24 
25 
26 
27 
26 
29 
30 

31 
32 
33 
34 

35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
46 
49 
50 



*4 A * II 



03140 

03141 

03142 
03143 
03144 
03145 
03146 
03147 

03150 

03151 
03152 
03153 
£3154 
03155 
03156 



03157 

03160 

03161 
03162 
03163 
03164 
03165 
03166 
03167 
03170 
03171 
03172 
03173 

03174 
03175 
03176 
03177 

03200 

03201 
03202 
03203 
03204 
03206 
03206 
03207 



030425 
100000 
010000 
001000 
000100 
000010 
000001 
000000 

030435 
000012 
023420 
001750 
000144 
000012 
000001 
1000000 
000010 

000000 
000000 

054442 
101325 
001401 
040440 
176000 
117000 
163404 
000775 
176660 
020432 
163300 

034426 
116403 
000407 
004434 
002423 

020424 
034424 
117405 
002417 

020422 
004425 
000772 



OCTABl IDA 2, ,♦!♦. -DECOCT 
100000 
10000 
1000 
100 
10 
1 



OECTBI IDA 2,.*i*, -DECOCT 
,RDX 10 

10000 

1000 
100 
10 
1 

,RDX 8 

ZSUPPl 
RADRETI 

CMARI STA 3,CHRET 

MOVZS 0,0, SNR 
JMP 1,3 
STA 0,CHSAV 
ADC 3,3 
ADD 0,3 
AND 3,0,3ZR 
JMP ,»3 
SUBCR 3,3 
IDA 0,CH3AV 
ADOS 3,0 

CHAR!! IDA 3,CMTAB 

SUB 0,3,SNR 

JMP ,*7 

J8R TYPE 

JMP PCHRET 

IDA 0,CHORZ 

IDA 3,CHAR7 

AND 0,3,SNR 

JMP PCHRET 

IDA 0,CM240 

J3R TYPE 

JMP ,«6 



IPRINT C(0) RIGHT 
IRETURN *2 IP NULL 



ICOMPUTE THE PARITY 



JCOMBIND PARITY WITH CHAR 



KS THIS A TAB 

>YES 

1HQ PRINT IT 
JEXIT 

^SIMULATE A TAB 
» VIA 1 TO 8 SPACES 



a 0014 .MAIN 










Bi 










02 










03 

04 03210 084420 


CRLFI 


STA 


3,CRLFR 


ISAVE RETURN 


09 03211 020410 




IDA 


0,C215 




06 03212 004747 




J8R 


CHAR 


fPRINT CARRIAGE AND LF 


07 03213 020405 




IDA 


0,C212 




00 03214 004745 




J8R 


CHAN 




09 03215 102400 




SUB 


0,0 




10 03216 040407 




STA 


0,CHORZ 


ICUEAR HORZ POSISTION 


11 03217 002411 




JMP 


#CRLPR 


fEXIT 


12 










13 03220 000212 


C212I 


212 






14 03221 000215 


C2151 


215 






15 03222 000011 


CHTABI 


11 






16 03223 000000 


CHRETl 









17 03224 000000 


CHSAVI 









10 03225 000000 


CHORZI 









19 03226 000007 


CHAR7I 


7 






20 0322? 000240 


CH240I 


240 






21 03230 000000 

22 

23 03231 000377 


CRLFR* 









C377I 


377 






24 03232 000000 


MES3R1 









25 03233 054406 


TYPE! 


STA 


3,TYPRET 


ITYPE THE C(0)R IF 


26 03234 010771 




ISZ 


CHONZ 




27 03235 063511 




3KPBZ TTO 




26 03236 ^2777 




JMP 


.-1 




29 03237 061U1 




OOAS 0.TTQ 




30 03240 002401 




JMP 


•TYPRET 




31 03241 000000 


TYPRETI 









32 










33 03242 000000 


LAST! 









34 










35 


.END 









